home *** CD-ROM | disk | FTP | other *** search
/ Amiga Games: Greatest Hits 1996 / Amiga Games: Greatest Hits 1996.iso / userbox / publicdomain / time_guide / install / install_guide < prev    next >
Encoding:
Text File  |  1996-04-22  |  6.9 KB  |  288 lines
  1. ; $VER: Install_Guide 1.58 (22.04.96)
  2. ; Script to install Time.guide
  3.  
  4. (complete 0)
  5.  
  6. (set old_level @user-level)
  7. (set @default-dest "sys:")
  8.  
  9. ;=============================================================================
  10. ; Deutsch strings
  11. ;(if (= @languge "Deutsch")
  12. ;(
  13.    (set #bad-kick
  14.    (cat "Sie benötigen AMIGA OS 2.0+ zum Installieren der "
  15.         "Time.guide!"))
  16.  
  17.     (set #ask-dir    "Wohin soll die Time.guide installiert werden?\nAchtung es wird kein Verzeichnis erstellt!")
  18.  
  19.     (set #ask-funktion "Was soll installiert werden?\n\n")
  20.     (set #ask1 "AmigaGuide")
  21.     (set #ask2 "Startfiles")
  22.     (set #ask3 "Amiga-Magazin-Liste")
  23.     (set #ask4 "Amiga-Plus-Liste")
  24.     (set #ask5 "SaarAG-Liste")
  25.     (set #ask6 "Time-Liste")
  26.     (set #ask7 "Porky's-Liste")
  27.     (set #ask8 "Indizes")
  28.     (set #ask9 "Hilfsprogramme")
  29.     (set #askA "Sourcecodes")
  30.     (set #ask-funktion-help
  31.     (cat "\nSie müssen auswählen, was installiert werden soll.\n\n"
  32.         "Mit \"" #ask1 "\" wird dieses auf Ihre Startdisk installiert\n"
  33.         "\"" #ask2 "\" installiert Startfiles zur Time.guide (werden unbedingt benötigt)\n"
  34.         "\"" #ask3 "\" installiert Inhalte der Amiga-Magazin-Disks\n"
  35.         "\"" #ask4 "\" installiert Inhalte der Amiga-Plus-Disks\n"
  36.         "\"" #ask5 "\" installiert Inhalte der SaarAG-Disks\n"
  37.         "\"" #ask6 "\" installiert Inhalte der Time-Disks\n"
  38.         "\"" #ask7 "\" installiert Inhalte der Porky-Disks\n"
  39.         "\"" #ask8 "\" installiert den Index zu allen Serien\n"
  40.         "\"" #ask9 "\" installiert Bestellprogramme\n"
  41.         "\"" #askA "\" zu den Hilfsprogrammen\n"
  42.     ))
  43.     (set #ask-funktion-2 "Welche Sprache(n) wollen Sie installieren?\n\n")
  44.  
  45.     (set #Install "Installiere ")
  46.     (set #Proc-Quest "Welche Version der Bestellsoftware soll installiert werden?\n\n")
  47.     (set #Unpack "Entpacke ")
  48.     (set #default_lang 1)
  49. ;))
  50. ;=============================================================================
  51. ; make sure we are running under V37+
  52.  
  53. (if (< (/ (getversion) 65536) 37)
  54.   (
  55.    abort #bad-kick
  56.   )
  57. )
  58.  
  59. ;=============================================================================
  60. ; Verzeichnis auswählen:
  61.  
  62. (user 2)
  63. (set target_dir (askdir (prompt #ask-dir @askdir)
  64.          (help @askdir-help)
  65.             (default @default-dest)
  66.             (disk)
  67.       )
  68. )
  69. (user old_level)
  70. (set @default-dest target_dir)
  71.  
  72. ;=============================================================================
  73. ; Routine zum kopieren/entpacken der Time.guide
  74. (user 2)
  75. (set timesel
  76.     (askoptions (prompt #ask-funktion)
  77.     (help #ask-funktion-help)
  78.     (choices #ask1
  79.                 #ask2
  80.                 #ask3
  81.                 #ask4
  82.                 #ask5
  83.                 #ask6
  84.                 #ask7
  85.                 #ask8
  86.                 #ask9
  87.                 #askA
  88.     )
  89.     (default 2)
  90. ))
  91. (user old_level)
  92.  
  93. (set m 0)
  94. (set n 0)
  95. (while (set Timehier
  96.     (select n #ask1
  97.                 #ask2
  98.                 #ask3
  99.                 #ask4
  100.                 #ask5
  101.                 #ask6
  102.                 #ask7
  103.                 #ask8
  104.                 #ask9
  105.                 #askA
  106.                 ""
  107.     ))
  108. (
  109.     (if (IN Timesel n)
  110.     (
  111.         (set #Name    (select n    "AmigaGuide"
  112.                                         "Startfiles"
  113.                                         "AmiMag"
  114.                                         "AmiPlus"
  115.                                         "Saar"
  116.                                         "Time"
  117.                                         "Porky"
  118.                                         "Indizes"
  119.                                         "Zusatz"
  120.                                         "Source"
  121.                         )
  122.         )
  123.         (set #Complete (* (+ n 1) 10))
  124.         (WORKING (CAT #Unpack Timehier))
  125.         (RUN    (cat "unlzx x /" #Name ".lzx ram:"))
  126.  
  127.         (if (= n 0)
  128.         (
  129.             (copylib    (prompt "AmigaGuide.library" @copylib)
  130.                         (help   @copylib-help)
  131.                         (source "ram:AmigaGuide/amigaguide.library")
  132.                         (dest "Libs:")
  133.                         (confirm 2)
  134.             )
  135.             (copylib    (prompt "AmigaGuide" @copylib)
  136.                         (help   @copylib-help)
  137.                         (source "ram:AmigaGuide/amigaguide")
  138.                         (dest "c:")
  139.                         (confirm 2)
  140.             )
  141.         ))
  142.         (if (AND (> n 0) (< n 8))
  143.         (
  144.             (copyfiles    (prompt (cat #Install Timehier) @copyfiles)
  145.                             (help   @copyfiles-help)
  146.                             (source (cat "ram:" #Name "/"))
  147.                             (dest target_dir)
  148.                             (all)
  149.             )
  150.         ))
  151.         (if (= n 8)
  152.         (
  153.             (set CPUStr (database "cpu"))
  154.             (if (< CPUStr "68020")
  155.                 (set NewProc 0)
  156.                 (set NewProc 1)
  157.             )
  158.             (if (> @user-level 1)
  159.                 (set NewProc
  160.                     (askchoice    (prompt #Proc-Quest)
  161.                                     (help @askchoice)
  162.                                     (choices "MC68000/10"
  163.                                                 "MC68020/30/40/60"
  164. ;                                                "NATIVE (PPC)"
  165.                                     )
  166.                                     (default NewProc)
  167.                     )
  168.                 )
  169.             )
  170.             (if (= NewProc 1)
  171.             (
  172.                 (delete (CAT "ram:" #Name "/T_Bestellen")) 
  173.                 (rename (CAT "ram:" #Name "/T_Bestellen.020+")
  174.                           (CAT "ram:" #Name "/T_Bestellen"))
  175.             ))
  176.             (if (= NewProc 2)
  177.             (
  178.                 (delete (CAT "ram:" #Name "/T_Bestellen")) 
  179.                 (rename (CAT "ram:" #Name "/T_Bestellen.ppc")
  180.                           (CAT "ram:" #Name "/T_Bestellen"))
  181.                 (delete (CAT "ram:" #Name "/T_Merke")) 
  182.                 (rename (CAT "ram:" #Name "/T_Merke.ppc")
  183.                           (CAT "ram:" #Name "/T_Merke"))
  184.                 (delete (CAT "ram:" #Name "/Aufloesung")) 
  185.                 (rename (CAT "ram:" #Name "/Aufloesung.ppc")
  186.                           (CAT "ram:" #Name "/Aufloesung"))
  187.             ))
  188.             (if (exists (CAT "ram:" #Name "/T_Bestellen.020+"))
  189.                 (delete (CAT "ram:" #Name "/T_Bestellen.020+"))
  190.             )
  191.             (if (exists (CAT "ram:" #Name "/T_Bestellen.ppc"))
  192.                 (delete (CAT "ram:" #Name "/T_Bestellen.ppc"))
  193.             )
  194.             (if (exists (CAT "ram:" #Name "/T_Merke.ppc"))
  195.                 (delete (CAT "ram:" #Name "/T_Merke.ppc"))
  196.             )
  197.             (if (exists (CAT "ram:" #Name "/Aufloesung.ppc"))
  198.                 (delete (CAT "ram:" #Name "/Aufloesung.ppc"))
  199.             )
  200.             (if (exists (TACKON target_dir "T_Bestellen.info"))
  201.                 (delete (CAT "ram:" #Name "/T_Bestellen.info")) 
  202.             )
  203.             (if (exists (TACKON target_dir "T_Best.dat"))
  204.                 (delete (CAT "ram:" #Name "/T_Best.dat")) 
  205.             )
  206.             (if (exists "LOCALE:")
  207.             (
  208.                 (user 2)
  209.                 (set lang
  210.                     (askoptions (prompt #ask-funktion-2)
  211.                                     (help @askoptions-help)
  212.                                     (choices
  213. ;                                                "dansk"
  214.                                                 "deutsch"
  215.                                                 "english"
  216. ;                                                "español"
  217. ;                                                "français"
  218. ;                                                "italiano"
  219. ;                                                "nederlands"
  220. ;                                                "norsk"
  221. ;                                                "portoguês"
  222. ;                                                "svenska"
  223.                                     )
  224.                                     (default #default_lang)
  225.                     )
  226.                 )
  227.                 (user old_level)
  228.  
  229.  
  230.                 (set m 0)
  231.                 (while (set language
  232.                     (select m
  233. ;                                "dansk"
  234.                                 "deutsch"
  235.                                 "english"
  236. ;                                "español"
  237. ;                                "français"
  238. ;                                "italiano"
  239. ;                                "nederlands"
  240. ;                                "norsk"
  241. ;                                "portoguês"
  242. ;                                "svenska"
  243.                                 ""
  244.                 ))
  245.                 (
  246.                     (set LocSource (cat "ram:" #Name "/Locale/Catalogs/" language))
  247.                     (if (exists LocSource)
  248.                     (
  249.                         (if (IN lang m)
  250.                         (
  251.                             (makedir (cat "LOCALE:Catalogs/" language))
  252.                             (run (cat "copy >NIL: " LocSource "/#? Locale:Catalogs/" language "/ all"))
  253.                         ))
  254.                         (run (cat "delete " LocSource "/#? all"))
  255.                         (run (cat "delete " LocSource))
  256.                     ))
  257.                     (set m (+ m 1))
  258.                 ))
  259.             ))
  260.             (run (cat "delete ram:" #Name "/Locale/#? all"))
  261.             (run (cat "delete ram:" #Name "/Locale"))
  262.             (copyfiles    (prompt (CAT #Install Timehier) @copyfiles)
  263.                             (help   @copyfiles-help)
  264.                             (source (cat "ram:" #Name "/"))
  265.                             (dest target_dir)
  266.                             (all)
  267.             )
  268.             (complete #Complete)
  269.         ))
  270.         (if (= n 9)
  271.         (
  272.             (makedir (TACKON target_dir #Name))
  273.             (copyfiles    (prompt (cat #Install Timehier) @copyfiles)
  274.                             (help   @copyfiles-help)
  275.                             (source "ram:Source/")
  276.                             (dest (TACKON target_dir "Source/"))
  277.                             (all)
  278.             )
  279.         ))
  280.     ))
  281.     (run (cat "delete ram:" #Name "/#? all"))
  282.     (run (cat "delete ram:" #Name))
  283.     (complete #Complete)
  284.     (set n (+ n 1))
  285. ))
  286.  
  287. (complete 100)
  288.